home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / batchut / funky.zip / FKDEMO.BAT < prev    next >
DOS Batch File  |  1993-02-20  |  10KB  |  320 lines
  1. ECHO OFF > NUL
  2. CLS
  3. ECHO Fkdemo.bat :   FUNKY.COM Demo       
  4. ECHO -------------------------------------------------------------------------------
  5. ECHO Your Path Specification is :
  6. ECHO  
  7. ECHO PATH=%PATH%
  8. ECHO --------------------------------------------------------------------
  9. ECHO  
  10. ECHO IF YOU HAVE NOT COPIED THE FILE  "FUNKY.COM"  TO A DIRECTORY
  11. ECHO  
  12. ECHO WHICH IS SHOWN IN THE ABOVE PATH SPECIFICATION
  13. ECHO  
  14. ECHO *PRESS ESCAPE*  TO ABORT THE DEMO.
  15. ECHO  
  16. ECHO  
  17. ECHO PLEASE SELECT:     F10 - PROCEED with Demo
  18. ECHO  
  19. ECHO                    ESC - ABORT
  20. FUNKY
  21. IF errorlevel 10 GOTO BEGIN
  22. GOTO END
  23. :BEGIN
  24. SET FK_DRV=?
  25. rem Set to white text on blue background
  26. ECHO 
  27. ECHO Fkdemo.bat :   FUNKY.COM Demo                       L.F. Furneaux  Feb 15/93
  28. ECHO ----------------------------------------------------------------------------
  29. ECHO If your Display is MONOCHROME   PRESS   F1 
  30. ECHO If your Display is   COLOUR     PRESS   F4 
  31. ECHO To Abort Demo Now               PRESS   ESC 
  32.  
  33. :DISTYPE
  34. FUNKY Please Select: /4
  35.  
  36. IF errorlevel 4 GOTO START
  37. REM ignore F2 & F3
  38. IF errorlevel 2 GOTO DISTYPE
  39. IF errorlevel 1 SET FK_DSP=MONO
  40. IF errorlevel 1 GOTO START
  41. GOTO END
  42.  
  43. :START
  44. CLS
  45. ECHO Fkdemo.bat :   FUNKY.COM Demo
  46. rem Cursor to line 3, Col 22, Display bold yellow border on green background
  47. ECHO ╔══════════════════════════════════════╗
  48. ECHO ║             SAMPLE MENU              ║
  49. ECHO ╠══════════════════════════════════════╣
  50. ECHO ║                                      ║
  51. ECHO ║                                      ║
  52. ECHO ║                                      ║
  53. ECHO ║                                      ║
  54. ECHO ║                                      ║
  55. ECHO ║                                      ║
  56. ECHO ║                                      ║
  57. ECHO ║                                      ║
  58. ECHO ║                                      ║
  59. ECHO ║                                      ║
  60. ECHO ║                                      ║
  61. ECHO ║                                      ║
  62. ECHO ║                                      ║
  63. ECHO ╚══════════════════════════════════════╝
  64. rem Fkeys yellow on red, menu items bold white on black
  65. ECHO F1   -   List Current Dir
  66. ECHO F2   -   List  : Root Dir
  67. ECHO F3   -   Set Current Drive
  68. ECHO F4   -   Enter a DOS Command   
  69. ECHO F5   -   View FUNKY.COM Doc
  70. ECHO ESC  -   QUIT DEMO
  71. IF %FK_DRV%==? GOTO BOOTDRV
  72. ECHO %FK_DRV%
  73.  
  74. :MENU
  75. FUNKY Enter Your Selection: /5
  76.  
  77. IF errorlevel 5 goto F5
  78. IF errorlevel 4 goto F4
  79. IF errorlevel 3 goto F3
  80. IF errorlevel 2 goto F2
  81. IF errorlevel 1 goto F1
  82. GOTO ESCAPE
  83.  
  84. REM - show files in current directory
  85. :F1
  86. CLS
  87. ECHO Fkdemo.bat :   FUNKY.COM Demo     Current Directory
  88. ECHO ---------------------------------------------------
  89. IF EXIST \*.* DIR/P
  90. ECHO 
  91. PAUSE
  92. ECHO 
  93. goto START
  94.  
  95. REM - show files in root directory
  96. :F2
  97. CLS
  98. ECHO Fkdemo.bat :   FUNKY.COM Demo        Root Directory
  99. ECHO ---------------------------------------------------
  100. IF EXIST \NUL DIR \ /W/P
  101. ECHO 
  102. PAUSE
  103. ECHO 
  104. GOTO START
  105.  
  106. REM ************ SET CURRENT DRIVE *********************
  107. :F3
  108. REM Save prev setting for "current drive" (if exists)
  109. SET FK_OLDDV=%FK_DRV%
  110. ECHO Choices      A:   B:   C:   D:   E:   CANCEL
  111. ECHO SELECT:      F1   F2   F3   F4   F5     ESC
  112.  
  113. FUNKY /5
  114.  
  115. REM erase choices
  116. ECHO 
  117. ECHO 
  118.  
  119. REM See SETCOL routine at EOF for alternate low to high testing that
  120. rem     could be done here to eliminate the double check of ea value.
  121. IF errorlevel 5 SET FK_DRV=E:
  122. IF errorlevel 5 GOTO SHODRV
  123. IF errorlevel 4 SET FK_DRV=D:
  124. IF errorlevel 4 GOTO SHODRV
  125. IF errorlevel 3 SET FK_DRV=C:
  126. IF errorlevel 3 GOTO SHODRV
  127. IF errorlevel 2 SET FK_DRV=B:
  128. IF errorlevel 2 GOTO SHODRV
  129. IF errorlevel 1 SET FK_DRV=A:
  130. IF errorlevel 1 GOTO SHODRV
  131. GOTO CANCEL
  132.  
  133. :SHODRV
  134. IF errorlevel 5 GOTO FLOPPY?
  135. IF errorlevel 4 GOTO FLOPPY?
  136. IF errorlevel 3 ECHO SELECTED DRIVE IS C:
  137. IF errorlevel 3 GOTO CONFIRM
  138. IF errorlevel 2 ECHO SELECTED DRIVE IS B:
  139. IF errorlevel 2 GOTO ENSURE
  140. IF errorlevel 1 ECHO SELECTED DRIVE IS A:
  141. IF errorlevel 1 GOTO ENSURE
  142. :FLOPPY?
  143. ECHO IF DRIVE %FK_DRV% is a FLOPPY DRIVE
  144. :ENSURE
  145. ECHO ENSURE Drive Contains Disk and is Closed
  146.  
  147. :CONFIRM
  148. FUNKY F1 to PROCEED,  ESC to CANCEL  /1
  149.  
  150. REM Erase bot scrn
  151. ECHO 
  152. ECHO 
  153. ECHO 
  154. ECHO 
  155. IF errorlevel 1 GOTO VERIFY
  156.  
  157. :CANCEL
  158. SET FK_DRV=%FK_OLDDV%
  159. SET FK_OLDDV=
  160. GOTO MENU
  161.  
  162. :VERIFY
  163. IF EXIST %FK_DRV%\NUL GOTO SETDRV
  164. REM Restart if invalid drive spec
  165. ECHO INVALID  or  EMPTY Drive
  166. ECHO Any Key to Continue OR
  167. ECHO Enter Ctrl C, then Y to abort Demo
  168. PAUSE > NUL
  169. SET FK_DRV=%FK_OLDDV%
  170. SET FK_OLDDV=
  171. GOTO START
  172.  
  173. :SETDRV
  174. %FK_DRV%
  175. REM Print new current drive in menu item 2
  176. ECHO %FK_DRV%
  177. SET FK_OLDDV=
  178. GOTO MENU
  179. REM ************* end of Set Current Drive *************
  180.  
  181. REM - start 2nd Command processor for DOS commands
  182. :F4
  183. CLS
  184. REM Set current drive "unknown"- may be changed within DOS session.
  185. SET FK_DRV=?
  186. ECHO Fkdemo.bat :   FUNKY.COM Demo    Enter DOS Command
  187. ECHO ---------------------------------------------------
  188. ECHO 
  189. ECHO When you have completed your DOS session,
  190. ECHO Type  EXIT to return to DEMO..
  191. %COMSPEC%
  192. GOTO START
  193.  
  194. REM - View documentation for Funky.com (Funky.Doc)
  195. :F5
  196. IF EXIST FUNKY.DOC GOTO SHODOC
  197. ECHO 
  198. ECHO Sorry....Unable to find FUNKY.DOC
  199. PAUSE
  200. GOTO START
  201. :SHODOC
  202. MORE < FUNKY.DOC
  203. ECHO 
  204. PAUSE
  205. GOTO START
  206.  
  207. REM - Print boot drive for Demo in Menu at row 9, col 41
  208. :BOOTDRV
  209. SET FK_PSAV=%PROMPT%
  210. REM   Set prompt to bold yellow drive letter + ":" with
  211. rem   concealed text following (hide echo cmd following)
  212. PROMPT $e[9;41H$e[1;33;40m$n:$e[0;8m
  213. ECHO ON
  214. ECHO 
  215. ECHO OFF
  216. ECHO 
  217. PROMPT %FK_PSAV%
  218. REM   Concealed cmds overwrite part of "Root Dir"
  219. ECHO  Root Dir 
  220. SET FK_PSAV=
  221. GOTO MENU
  222.  
  223. :ESCAPE
  224. IF "%FK_DSP%"=="MONO" GOTO END
  225. :ESC2
  226. CLS
  227. ECHO 
  228. ECHO SCREEN COLOURS ARE CURRENTLY SET TO WHITE TEXT ON BLUE BACKGROUND.
  229. ECHO 
  230. :ESC3
  231. ECHO CPRESS         F1   to Accept &  EXIT
  232. ECHO Cor
  233. ECHO CESC  to Select Colours
  234.  
  235. FUNKY AC/1
  236.  
  237. ECHO 
  238. IF errorlevel 1 GOTO END
  239. :SETCOL
  240. CLS
  241. ECHO Fkdemo.bat:             RE-SET SCREEN COLOURS         (ESC for prev Screen)
  242. ECHO ---------------------------------------------------------------------------
  243. SET FK_COL=REV
  244. SET FK_BKG=
  245. SET FK_TXT=
  246. ECHO PALETTE:
  247. ECHO       C      C      C      
  248. ECHO [    ]C      C      C      
  249. ECHO 
  250. ECHO F1       F2       F3       F4       F5       F6       F7       F8
  251. ECHO 
  252.  
  253. FUNKY Select BACKGROUND Colour: /8
  254.  
  255. REM  *NOTE that testing here is low to high. If say F4 is entered,
  256. rem   FK_BKG continues to reset until "IF errorlevel 4". Subsequent
  257. rem   tests fall thru (4 "Not = > 5",6..etc). Testing is not for
  258. rem   branching & avoids 2nd test for ea value as in MENU or SETDRV.
  259. IF errorlevel 1 Set FK_BK